home *** CD-ROM | disk | FTP | other *** search
- Unit Chronog
-
- Component TChrono
-
- This component give you time, in ms, between
- Start-Stop procedure.
-
- You can made several measures and obtain:
- - the lest measure
- - total time for all the measures
- - number of measures
- - average time
-
- All times are in ms and defined as Longint.
- Number of measure is an Integer.
-
- property last: Longint read getlast;
- property aver: Longint read getaver;
- property total: Longint read gettotal;
- property nb: Integer read Fnumbermes;
-
- The different procedures are:
-
- procedure start; start a new measure
- procedure stop; end the current measure
- procedure pause; begin a pause (keep elapsed time)
- procedure continue; end a pause and continue count
- procedure cancel; stop and ignore current measure
- procedure raz; set all values to 0
-
- This component is given to the public domain. If you find it useful
- please send me a message.
-
- If you modify it thanks to send me these evolutions.
-
- Pierre FONTAINE
- My E-mail(on Compuserve): 100576,3706@compuserve.com
-
-
- To use this component, instal chronog.pas as new vcl in Delphi.
-
-
- A demo program is also in this zip file, chonoa.pas
-
- This program use another component which is put to the public domain by:
- Author: Cameron D. Peters }
- Suite 311, 908 - 17th Avenue S.W. }
- Calgary, Alberta CANADA }
- CIS: 72561,3146
-
- Thanks to him for TPanelClock component.
-
- To use the demo program instal also panclock.pas as new vcl.
-